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v03-002 oi oy Anne Warner 07-Aug-1984 
.3 check to see if the return status from MSCPS$SHOW 
_ ss$_devoffline and if it is return the code show$_mscpnotld 
stating that the MSCP-Server code is not loaded. 


v03-001 AEWO001 Anne Warner 03-Jul-1984 
Make changes for the reformat of the display. 
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28 -SBTTL DECLARATIONS 
e} ; SYMBOL DEF INTIONS 
6 . 
64 nocross 
65 SCOTDEF 
6 SCLIDEF ; CLI Utility definitions 
6 SIPLDEF 
oe SMSCPDEF 
§ SPBDEF 
0 SSSDEF :; System service condition code def's 
4 SSYIDEF 3 System-wide Information ($GETSYI) 
rs .cross 
g »DEFAULT DISPLACEMENT LONG 
f 
: 
: : STORAGE DEFINITIONS 
r -PSECT SHOWSRWDATA,NOEXE,WRT,LONG 
6; 
i 5 HEADINGS AND HEADING DESCRIPTORS 
89 ° 
90 BAN_MAIN: 
91 ASCII / MSCP-Served Devices on 'AD !2D/ 


BAN_MAIN_LEN=.-BAN_MAIN 
BAN~MAIN~ SHOW: 


“LONG BAN_MAIN_LEN 
-ADDRESS BAN_MAIN 


SELSSPLL 


A BAN_U: .ASCII <10><13> 
° ; : : 0 : 0 : : 3 ASELL / Queue Requests/ 
x : : : OA i 199 ASCII <10><13> 
3 30 30 20 $0 A 65 63 69 7 S4 of 101 “ASCII /Device: Status Total Size Current Max Hos 
CEE: 
ain % : nt 20 i, ge ie 102 BAN_U_LEN=.-BAN_U 
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DECLARA CLIUTL.S REIS SHOWMSCP.MAR; 1 (1) 
D8 ‘ 
4C <} 390008 EB +0105 0090: ) 1 ALL: -ASCID 7ALL/ 
4F 4 *010E0000° 190 COUNT: .ASCID /COUNT/ 
46 55 48 000005F5'O1 2000" 13 HOST: ASCID  /HOST/ 
52 55 4F 53 45 52 Soeeneer 'orer erry” F 1 § -ASCID /RESOURCE/ 
45 4 : 
08 «198 
509 196: VARIABLES 
609 199 3 
89800008 609 139 NUMNODE:.LONG 0 ; Null argument for buffer address in GET_NODE 
1D 0600 00 NODE: -BLKB 16 ; ASCII s (Ifans to contain the node name for header 
61D 83 3; after coit o S$GETSYIW 
61D ¢ GET_NODE: : ITM ‘e,8 vd SGETSYIW 
2 61D 5 -WORD 16 3 but fer length defined to be 16 for nodename 
10D 51F 4 «WORD SYIS_NODENAME ; Item code to get the node name 
0D" 0621 05 ADDRESS NODE ; Buffer address. Not used with this item code 
09° 0625 38 - ADDRESS NUMNODE ; return length address 
629 0 «LONG 0 ; signifies end of item List 
62D oS MAIN_ARG: ; Argument List for main Speetan 
00000000 0620 0 »LON 0 3; Will contain number of characters in node name (NUMNODE) 
0000060D" 0631 10 onpenese NODE ; contains the address of the nodename from $GETSYIW 
00000 635 11 0 3 and a zero to specify current date and time wanted 
639 \§ MAX: “TONG 0 ; The maximum number of times to loop through a routine 
63D 1 ; determined in MSCP routines. 
i444 644 63D 14 CNT: -LONG 0 ; The count of how many times a routine has been executed 
000000 41 15 TOP_ARG:.LONG 0 ; This variable contains the eddress of the first parameter | 
45 16 ; to be printed. This is determined in the MSCP routines. 
00000655 $2 17 HOLD: .BLKL 4 ; Holds the address of TOP_ARG so the arglist may be 
5 18 ; separated for output 
55 1 
55 20 
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15-SEP-1984 23:50:53 VAX/VMS Macro v04-00 
4-SEP-1984 33:3 704 CLIUTL.SRCIS 
SHOWSCODE ,EXE ,NOWRT, LONG 
SHOWSMSCP, “M<> 


FUNCTIONAL DESCRIPTION 
SHOWSMSCP controls what information is displayed, Sovorened by 


the user input. 
and if so the correspondin 
qualifier was specifie 
gees ' There were specif 


fea 


It first checks if any 
information 


HOWMSCP.MAR; 1 


deny 


quel) ters were specif 
s displayed. 

lL of the information is displayed. 
then only the device information is 


If the /ALL 
. no 
displayed. 


his routine determines this information and dispatched to the proper 


rout ine( 


$s). 


CALLING SEQUENCE 
SHODEV <---> SHOWSMSCP 
INPUT PARAMETERS 


None 


OUTPUT PARAMETERS 


None 


#0,SHO_UNIT 
RO.1 


ALL 
#1,G°CLISPRESENT 
#0; SHO_HOST 


HO 
“, SCLISPRESENT 
‘ - $HO_HOST 

RO, 10 

RESOURCE 
#1,G°CLISPRESENT 


#0.SHO_RESO 
RO. 10$ 


COUNT 
oho Sagt tSPRESENT 
HO_COUN 


#0. 
RO. 
econ 


The device info is always displayed 


Find if ALL information is requested 


Branch if not 
If so then call 
the HOST, RESOUR 


If the /ALL 
then /HOST, 


al 
cE 


l 


must be checked ind 
Call the CLI routine to check if 


present, if not 


tr 


if it is then disp 
qualifier and then check for the next 


one. 


ta 


routines to display 
and COUNT info 


ualifier was not set 
ne Souase 


and /COUNT 
vidually. 


the next qualifier, 
info for the 


After all qualifiers checked and 
processed return to caller. 


= 4 


= MSCP 
DECLARA 


80 
3 15$: 


83 208: 


erver Information 
IONS 


BNEQ 
MOVL 
PUSHL 
CALLS 
RET 
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64-SEP-1984 CLIUTL.SRCJSHOWMSCP.MAR; 1 (1) 
15$ 
#SHOWS _MSCPNOTLD,RO 
RO ; If tnere was an error along the way 
#1,G*LIBSSIGNAL ; call the signal routine to tell user. 
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0100 oca2 - LENTRY SHO_UNIT, “M<RB> 
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59 50 «EY 
00000620 "EF O9"EF 00 
Spier F 
0025 'EF F 
"GF 44 
+994 al F DE 
00000000 ° GF 2 FB O0E4 
D°EF 04 QOEB 
sere BB 
00000641"EF OF Gor 
3 OD 9 
58 3 =5E& DO 0105 
10 
10 
2a 50 =€9 011 
SE 10 CO QIIA 
00000641 "EF f 11 
™” % 1 
sais ce 4 1 
000 ll F 0128 
* GF 2 Fe 131 
AD 0000065D"EF  Q0000639°EF fF 138 
mH 


Be Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge 


a 
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FUNCTIONAL DESCRIPTION 
T controls the Gisploy of information units in the data 


Tae, wr Hite 8 ASCPSGET UNIT to get the actual information then 
sends the information and its Sorted to SHOWSWRITE_LINE which prints 
it. SHO UNITS repeats this until all possible units (MAX) have been 
process 

CALLING SEQUENCE 
CALLS #0,SHO_UNIT 


per terre, $ Hh wees = GET_NODE ; Get the node name for heading 


BLBC 
MOVL NUANODE MAIN_ARG ; Number of characters in node name 
PUSHAL MAIN 3; Contains node name and zero to 
PUSHAQ BAN_AAI 3 specify date and time wanted 
CALLS #6" Ne* SHOUSURITE _LINE 
PUSH ; Set up argument List for output 
PUSHAQ 3 Heading. Routine in module 
CALL oD Ne*shouSwRITE_LINE ; Ccliutl.srcJshowio does output 
CLRL cnt ; Clear the counter to start 
5° PUSHAL MAX 3; Want to oe ae aa number of units 
PUSH +a ; Supply t 
AA a ARG 3; Want to get ee address of argument List 
MOVL R8 will contain addr. of arg List for call 
SCMKRNL 3 "fouriy = . | pallial unit, - ; Execute kernel routine 
7$: BLBC RO,8$ ; Check return status 
ADOL #i6,SP 3; Reclaim 4 honguords of stack space 
TSTL TOP_ARG ; If passed back as zero there is no 
BLEQ 6$ 3; information to print. 
PUSHL TOP ow ; Address of argument List of items 
PUSHAQ CTRSTR ; Format for argument List 
CALLS #2, @- SAbWSuRITE LINE ; Call routine in SHOWIO to output 
gs: ~'; ae MAX, CNT,5$ ; Loop through ail units 


) 
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‘Wen008 DECLARATIONS aS 13Rs 33:39:32 FOMIUTE SReSeuhomce? mans P28" 
14 
0100 1 ; sENTRY SHO_HOST,“M<RB> 
14 3+ 
14 3 
1? 4 FUNCTIONAL DESCRIPTION 
14 3 $HO_HOST controls the display of information concerning the status 
14 3 of MSCP Rosts. It calls MSCPSGET_HOST to get the information and 
14 3 $ ITE jie to dispisy the information. MSCPSGET_HOST is called 
16s : until it afl hosts are processed. 
165 : CALLING SEQUENCE 
\e¢ : CALLS #0,SHO_UNIT 
14 3 
147 3 
147 pee 
D 0147 PuSHL #0 
F 0149 PUSHAG BAN_H_SHOW 3 Ar nt List for header 
FB O14F CALLS #2, G*"SHOWSWRITE_LINE ; Print header 
D4 136 CLAL CNT : Initialize counter 
OF 1 5$ PUSHAL MAX 3 Need to get maximum number of hosts 
DD 016 PUSHL CNT : Supply the count 
DF QO} PUSHAL pQP-ARG 3; Need to get back address of arg List 
+4 1 PUSHL # 3 ber of arguments 
1 MOVL SP,R8 ; RB will contain arg List for call 
17 SCMKRNL_S ROUTIN = G*MSCPSGET_HOST,- |; Execute kernel routine 
17 ARGLST = (RB) 
ek 8 e&9 01 BLBC rO,7$ 3; Check return status 
Mm C 1 ADDL #i6,sP : reclaim 4 longwords of stack space 
eeeeeell ° ; astt Tor Ane : If zero there is nothing to print 
1°EF 4 1 PUSHL R ; Start of argument List 
vanes F 0196 PUSHAQ CTRSTR_H 3; Format for ar nt list 
* GF 2 fg HH CALLS #2,G*SROWSWRITE_LINE ; Print information from SHOWIO 
AD OO000635D"EF  O0000639"EF  F 1A 6s: AOBLSS MAX,CNT,5$ ; Loop through all hosts 
04 4 3 $: RET 
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ee 
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‘oe DECLARATIONS aaSEEa SBS 88:38:52 HEMLURS Bac te Onc Oe aes Pee 12, 
0300 016 «ENTRY SHO_RESO,“M<RB,RI> 
18 ¢ 
18 3+ 
i 73 5 FUNCTIONAL DESCRIPTION 
18 8 3 SHO_RESO controls the display of information about buffers and 
18 78 ; ackets Tresources) of MSCP served devices. The routine MSCPSGET_RESO 
H+ 79 ; s called to get the information and SHOWSWRITE_LINE to print it. 
i ; CALLING SEQUENCE 
18 ; CALLS #0,SHO_RESO 
18 4; 
an 
DD O16 PUSHL 
OF 0184 ; PUSHAL BAN_R_SHOW ; Print header 
rB O1BA CALLS #2,G*SHOWSWRITE_LINE 
DF 01C1 PUSHAL TOP_ARG ; Need address of argument List 
DD 01C7 91 PUSHL #1 
d0 O1C9 3 MOVL SP,R8 ; RB will contain address of arg list for ca 
icc | 39 SCMKRNL_S ROUTIN = G*MSCPSGET_RESO,- =; Execute kernel routine 
1¢C 94 AggLST = (RB) 
E9 0108 95 BLBC 5 ; Check return status 
DO 106 % MOVL § TOP_ARG,R9 
D OTE 9 PUSHL TOP_ARG ; Start of argument List 
F O1EB 8 PUSHAQ CTRSTR_BA 3; Format of output for buffer area 
FB O1F1 CALLS #2 Go sMOwSuRITE_LINE ; Print information 
DE 1F8 400 MOVAL 5*4(R9),TOP_ARG ; find start of 1/0 Packet output 
4 401 PUSHL TOP ; Start of argument List 
F 43 4 ¢ PUSHAQ CTRSTR_IOP : Format of output for 1/0 Packet 
FB 4 CALLS 96 -G°SROWSURITE_LINE ; Print information 
7) 1 4 PUSHL a 
. 1 405 PUSHAQ BAN_M_SHOW 3; Header for Buffer Wait 
FB 38 4 $ CALLS #2 GO SHOWSURITE LINE 
DE 4 MOVAL 7#4(R9),TOP_ARG ; find start of Buffer Wait output 
i) A & ; SHL TOP_AR ; Start of argument List 
a 0 4 PUSHAQ CTRSTR BW : Format of output for Buffer Wait 
FB 6 410 CALLS #2,G*SAOWSWRITE_LINE : Print information 
04 ; rey 5$: RET 


a 
+ 


| ad ek eee i ee 


= 
mononroe 
oon > 


oo 


AO ODNOA NE WIN OOD NONE WH OOODNOUE 


~m 
sad 


SPAWN IPONPNOPININDN 2 SS 


>PrPrammun 
SPRL LL LRP L PREPPED 


ooouor"n"oe 
ococom 


NSWWFRown 


> 

NW oO 
ae 
ae 


Wu "oO TOO 
--NDon 


AAACN 
~O 


eohenhn pamiatpcps + 4 IIZ IZ ZIA 


PW PNOOUIWO 


9 
ool SSE? 


erver Information 


sENTRY SHO_COUN, “M<R6,R7,RB,RI> 


FUNCTIONAL DESCRIPTION 


HO_COUN controls the 
of commands and | 
$GET_Coul 


$ 
nee + 
routines, MSCP 
SHOWSWRITE_LINE 


CALLING SEQUENCE 
CALLS #0,SHO_COUN 


CLRL OR 
PUSHL # 
PUSHAL BAN 
CALLS #2 
PUSHAL TOP 
PUSHL #1 


MOVL  SP,R8 
SCMKRNL_S ROUTIN 
ARGLST 


BLBC 0,4$ 

MOVL ‘TOP ARG RO 
MOVAL WOLD .R 

MOVL (RO). (R7)4 
MOVL  4#4(R89),(R7)4 
MOVL 8*4(R9).(R7)¢ 
MOVL 1284(R95,(R7) 
PUSHAL HOLD 

PUSHL REOXERG) 
CALLS @ GYSHOWSURITE_LINE 
MOVAL 4(R9),R9 
AOBLEQ #3,R6.2$ 

BRB $ 


B_ SHOW 
G*SHOWSWRITE_LINE 
ARG 


: GOMSCPSGET_COUT,~ 


4 93:39:33 AX/VMS Becca v04-00 Page 


CLIUTL.SRCJSHOWMSCP.MAR; 1 


lay of information about the current 
The information is gathered in two 
PSGET_COU2, and output by 


; Print count heading 
; Get address of argument List 


Call arg List in R8 


; Return status 


; The Seeley will opts the orgs tee 
; into four lin o do this the 
; correct arguments are moved into a 


List with starting address HOLD. Four 
arguments are moved and outputted, then 
the next four until all arguments have 
output. R6 is used as an index to 
select the correct format Line 


; Branch won't reach 


GET SECOND PART OF INFORMATION 


PUSHL 
PUSHAL 
CALLS 
PUSHA'. TOP_ARG 
PUSHL #1 

MOV 
BLec =O «RO, 7 
MOVL 


PU 
PUSHL 


CSLXERG] 
CALLS #2,G*SHOWSWRITE_LINE 


#0 
BAN_O_ SHOW 
#2,G*SHOWSWRITE_LINE 


TOP_ARG RO 


3 py tae the heading 


is the counter in this routine 


; Need to get address of argument List. 
; Number of arguments 
L SP,R8 ;_R8 contains addr of arglist for call 
SCMKRNL_S ROUTIN = G*MSCPSGET_COU2 
ARGLST = (R8) 


Pi 3; Execute kernel routine 


; Check return status 
3; Start of argument List 


ormat of argument List 


sf 
; Print information 


15-SEP-19 :50:53 VAX/VMS Macro v04-00 = 14 
4-$ oats 33:38 be CLIUTL.SRCJSHOWMSCP.MAR; 1 7 (1) 


ivan MOVAL  324(R9),R9 
¥ AOBLEQ #5 R668 ; Loop thru all commands 
$2? 7$: RET 


475 «END 
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SHO_RESO if 

eta BE 
Ss$- DEVOF FL INE : 
SY1$_NODENAME : B00} O84 
SYSSCAKRNL eeeteres 
SYSSGETSYIW eereeees 

02 TOP _ARG 00000641 aon 
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6 
REQ E 
5 
F 


REQX ; 
RE SOURCE 


a 
ee A} 


0 V04-00 


eis SHOWMSCP MAR; 1 


a 8 
SHOWSMSCP = MSCP Server Information 177 350- 1388 $3:39:33 AX/VMAS Macro 
Psect synopsis 46-SEP-1984 25:25:04 (CCLIUTL. SRE 
pee wmes ome sacacaas $ 
! Psect synopsis ! 
toe m oman mm amea roa a= te 
PSECT name Allocation PSECT No. Attributes 
ABS. 0900000 i 0:) 0 ¢ o-} NOPIC USR CON ABS LCL ve NOEXE NORD 
$aBss ( 0:) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
SHOWSRWDATA Sie ( 192) oP ¢ ( §°3 NOPIC USR CON REL LCL NOSHR NOEXE' RD 
SHOWS CODE ( 762.) ( -) NOPIC USR CON REL LCL H EXE RD 
tear eon cece ere oeaeroonemecmaen } 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
patetes teat ten : 8 
processing 108 0 ‘ 


Synbol table sort 


wed table output 

Psect synopsis output 
Cross-reference output 
Assembler run totals 618 s 


The working set Limit was 1500 pages. 

80807 bytes} (158 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1523 non-local and 19 Local symbols. 
475 source [iebss were read in Pass 1, producing 34 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 


18 : 


! Macro Library statistics ; 


| acento ine Deirceth weer esos annneant 


Macro Library name Macros defined 
=$35Se0uase: ts tSY3-08) at Hh -MLB;1 ? 
55$DUA SYSL IB3STARLET. Pale; 32 10 
TOTALS (all libraries) 14 


1584 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:SHOWMSCP/OBJ=0BJ$:SHOWMSCP MSRC$:SHOWMSCP/UPDATE=(ENHS$: SHOWMSCP) +EXECML$/LIB+LIB$:CLIUTL/LIB 
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